perm filename ZW.DAT[SCR,LCS]1 blob
sn#195524 filedate 1976-01-06 generic text, type T, neo UTF8
RCDFLG=-1;
< ZW .DAT -- RANDOM NUMBER= 1
PLAY;
CLAR 0.000 0.400 B 500.000 F2
;PRINT(P1);< CLAR 1
BRIT 0.000 0.500 E 500.000 F1
;PRINT(P1);< BRIT 1
BUZZ 0.000 1.000 C/2 500.000 F1
;PRINT(P1);< BUZZ 1
TOOT 0.333 0.333 DS*4 500.000 F1
;PRINT(P1);< TOOT 2
CLAR 0.400 0.400 CS*2 500.000 F2
;PRINT(P1);< CLAR 2
BRIT 0.500 0.500 B/2 500.000 F1
;PRINT(P1);< BRIT 2
TOOT 0.666 0.333 C*4 500.000 F1
;PRINT(P1);< TOOT 3
CLAR 0.800 0.400 D*2 500.000 F2
;PRINT(P1);< CLAR 3
TOOT 0.999 0.334 G*2 500.000 F1
;PRINT(P1);< TOOT 4
BRIT 1.000 0.500 C 500.000 F1
;PRINT(P1);< BRIT 3
BUZZ 1.000 1.000 E/2 500.000 F1
;PRINT(P1);< BUZZ 2
CLAR 1.200 0.400 B 500.000 F2
;PRINT(P1);< CLAR 4
TOOT 1.333 0.333 AS*2 500.000 F1
;PRINT(P1);< TOOT 5
BRIT 1.500 0.500 CS 500.000 F1
;PRINT(P1);< BRIT 4
CLAR 1.600 0.400 A 500.000 F2
;PRINT(P1);< CLAR 5
TOOT 1.666 0.333 C*4 500.000 F1
;PRINT(P1);< TOOT 6
TOOT 1.999 0.334 GS*2 500.000 F1
;PRINT(P1);< TOOT 7
CLAR 2.000 0.400 G 500.000 F2
;PRINT(P1);< CLAR 6
BRIT 2.000 0.500 D 500.000 F1
;PRINT(P1);< BRIT 5
BUZZ 2.000 1.000 A/2 500.000 F1
;PRINT(P1);< BUZZ 3
TOOT 2.333 0.333 G*2 500.000 F1
;PRINT(P1);< TOOT 8
CLAR 2.400 0.400 B 500.000 F2
;PRINT(P1);< CLAR 7
BRIT 2.500 0.500 F 500.000 F1
;PRINT(P1);< BRIT 6
TOOT 2.666 0.333 FS*2 500.000 F1
;PRINT(P1);< TOOT 9
CLAR 2.800 0.400 E*2 500.000 F2
;PRINT(P1);< CLAR 8
TOOT 2.999 0.334 G*2 500.000 F1
;PRINT(P1);< TOOT 10
BRIT 3.000 0.500 DS 500.000 F1
;PRINT(P1);< BRIT 7
BUZZ 3.000 1.000 C 500.000 F1
;PRINT(P1);< BUZZ 4
CLAR 3.200 0.400 D*2 500.000 F2
;PRINT(P1);< CLAR 9
TOOT 3.333 0.333 F*2 500.000 F1
;PRINT(P1);< TOOT 11
BRIT 3.500 0.500 E 500.000 F1
;PRINT(P1);< BRIT 8
CLAR 3.600 0.400 CS*2 500.000 F2
;PRINT(P1);< CLAR 10
TOOT 3.666 0.333 E*2 500.000 F1
;PRINT(P1);< TOOT 12
TOOT 3.999 0.334 DS*2 500.000 F1
;PRINT(P1);< TOOT 13
CLAR 4.000 0.400 A 500.000 F2
;PRINT(P1);< CLAR 11
BRIT 4.000 0.500 F 500.000 F1
;PRINT(P1);< BRIT 9
BUZZ 4.000 1.000 B/2 500.000 F1
;PRINT(P1);< BUZZ 5
TOOT 4.333 0.333 DS*4 500.000 F1
;PRINT(P1);< TOOT 14
CLAR 4.400 0.400 D*2 500.000 F2
;PRINT(P1);< CLAR 12
BRIT 4.500 0.500 A 500.000 F1
;PRINT(P1);< BRIT 10
TOOT 4.666 0.333 E*4 500.000 F1
;PRINT(P1);< TOOT 15
CLAR 4.800 0.400 E*2 500.000 F2
;PRINT(P1);< CLAR 13
TOOT 4.999 0.334 C*4 500.000 F1
;PRINT(P1);< TOOT 16
BRIT 5.000 0.500 C*2 500.000 F1
;PRINT(P1);< BRIT 11
BUZZ 5.000 1.000 A/2 500.000 F1
;PRINT(P1);< BUZZ 6
CLAR 5.200 0.400 FS*2 500.000 F2
;PRINT(P1);< CLAR 14
TOOT 5.333 0.333 D*4 500.000 F1
;PRINT(P1);< TOOT 17
BRIT 5.500 0.500 D 500.000 F1
;PRINT(P1);< BRIT 12
CLAR 5.600 0.400 GS*2 500.000 F2
;PRINT(P1);< CLAR 15
TOOT 5.666 0.333 B*2 500.000 F1
;PRINT(P1);< TOOT 18
TOOT 5.999 0.334 A*2 500.000 F1
;PRINT(P1);< TOOT 19
CLAR 6.000 0.400 A*2 500.000 F2
;PRINT(P1);< CLAR 16
BRIT 6.000 0.500 E 500.000 F1
;PRINT(P1);< BRIT 13
BUZZ 6.000 1.000 GS/2 500.000 F1
;PRINT(P1);< BUZZ 7
TOOT 6.333 0.333 FS*2 500.000 F1
;PRINT(P1);< TOOT 20
CLAR 6.400 0.400 F*2 500.000 F2
;PRINT(P1);< CLAR 17
BRIT 6.500 0.500 F 500.000 F1
;PRINT(P1);< BRIT 14
TOOT 6.666 0.333 GS*2 500.000 F1
;PRINT(P1);< TOOT 21
CLAR 6.800 0.400 E*2 500.000 F2
;PRINT(P1);< CLAR 18
TOOT 6.999 0.334 F*2 500.000 F1
;PRINT(P1);< TOOT 22
BRIT 7.000 0.500 G 500.000 F1
;PRINT(P1);< BRIT 15
BUZZ 7.000 1.000 A/2 500.000 F1
;PRINT(P1);< BUZZ 8
CLAR 7.200 0.400 B 500.000 F2
;PRINT(P1);< CLAR 19
TOOT 7.333 0.333 GS*2 500.000 F1
;PRINT(P1);< TOOT 23
BRIT 7.500 0.500 D 500.000 F1
;PRINT(P1);< BRIT 16
CLAR 7.600 0.400 C*2 500.000 F2
;PRINT(P1);< CLAR 20
TOOT 7.666 0.333 AS*2 500.000 F1
;PRINT(P1);< TOOT 24
TOOT 7.999 0.301 C*4 500.000 F1
;PRINT(P1);< TOOT 25
CLAR 8.000 0.375 CS*2 500.000 F2
;PRINT(P1);< CLAR 21
BRIT 8.000 0.500 C 500.000 F1
;PRINT(P1);< BRIT 17
BUZZ 8.000 0.750 B/2 500.000 F1
;PRINT(P1);< BUZZ 9
TOOT 8.300 0.300 CS*4 500.000 F1
;PRINT(P1);< TOOT 26
CLAR 8.375 0.375 GS 500.000 F2
;PRINT(P1);< CLAR 22
BRIT 8.500 0.500 E 500.000 F1
;PRINT(P1);< BRIT 18
TOOT 8.600 0.300 AS*2 500.000 F1
;PRINT(P1);< TOOT 27
CLAR 8.750 0.375 A 500.000 F2
;PRINT(P1);< CLAR 23
BUZZ 8.750 0.750 CS 500.000 F1
;PRINT(P1);< BUZZ 10
TOOT 8.900 0.300 F*2 500.000 F1
;PRINT(P1);< TOOT 28
BRIT 9.000 0.500 A 500.000 F1
;PRINT(P1);< BRIT 19
CLAR 9.125 0.375 AS 500.000 F2
;PRINT(P1);< CLAR 24
TOOT 9.200 0.300 FS*2 500.000 F1
;PRINT(P1);< TOOT 29
TOOT 9.500 0.300 A*2 500.000 F1
;PRINT(P1);< TOOT 30
CLAR 9.500 0.375 B 500.000 F2
;PRINT(P1);< CLAR 25
BRIT 9.500 0.500 C*2 500.000 F1
;PRINT(P1);< BRIT 20
BUZZ 9.500 0.750 D 500.000 F1
;PRINT(P1);< BUZZ 11
TOOT 9.800 0.300 G*2 500.000 F1
;PRINT(P1);< TOOT 31
CLAR 9.875 0.375 D*2 500.000 F2
;PRINT(P1);< CLAR 26
BRIT 10.000 0.500 B 500.000 F1
;PRINT(P1);< BRIT 21
TOOT 10.100 0.300 D*2 500.000 F1
;PRINT(P1);< TOOT 32
CLAR 10.250 0.375 B 500.000 F2
;PRINT(P1);< CLAR 27
BUZZ 10.250 0.750 B/2 500.000 F1
;PRINT(P1);< BUZZ 12
TOOT 10.400 0.300 DS*2 500.000 F1
;PRINT(P1);< TOOT 33
BRIT 10.500 0.500 A 500.000 F1
;PRINT(P1);< BRIT 22
CLAR 10.625 0.375 C*2 500.000 F2
;PRINT(P1);< CLAR 28
TOOT 10.700 0.300 F*2 500.000 F1
;PRINT(P1);< TOOT 34
TOOT 11.000 0.300 G*2 500.000 F1
;PRINT(P1);< TOOT 35
CLAR 11.000 0.375 CS*2 500.000 F2
;PRINT(P1);< CLAR 29
BRIT 11.000 0.500 GS 500.000 F1
;PRINT(P1);< BRIT 23
BUZZ 11.000 0.750 A/2 500.000 F1
;PRINT(P1);< BUZZ 13
TOOT 11.300 0.300 GS*2 500.000 F1
;PRINT(P1);< TOOT 36
CLAR 11.375 0.375 F*2 500.000 F2
;PRINT(P1);< CLAR 30
BRIT 11.500 0.500 A 500.000 F1
;PRINT(P1);< BRIT 24
TOOT 11.600 0.300 C*4 500.000 F1
;PRINT(P1);< TOOT 37
CLAR 11.750 0.250 GS*2 500.000 F2
;PRINT(P1);< CLAR 31
BUZZ 11.750 0.750 G/2 500.000 F1
;PRINT(P1);< BUZZ 14
TOOT 11.900 0.100 B*2 500.000 F1
;PRINT(P1);< TOOT 38
TOOT 12.000 0.267 AS*2 500.000 F1
;PRINT(P1);< TOOT 39
CLAR 12.000 0.333 AS 500.000 F2
;PRINT(P1);< CLAR 32
BRIT 12.000 0.444 A 500.000 F1
;PRINT(P1);< BRIT 25
TOOT 12.267 0.267 FS*2 500.000 F1
;PRINT(P1);< TOOT 40
CLAR 12.333 0.333 C*2 500.000 F2
;PRINT(P1);< CLAR 33
BRIT 12.444 0.444 E 500.000 F1
;PRINT(P1);< BRIT 26
BUZZ 12.500 0.750 B/2 500.000 F1
;PRINT(P1);< BUZZ 15
TOOT 12.534 0.267 DS*2 500.000 F1
;PRINT(P1);< TOOT 41
CLAR 12.666 0.334 D*2 500.000 F2
;PRINT(P1);< CLAR 34
TOOT 12.801 0.266 E*2 500.000 F1
;PRINT(P1);< TOOT 42
BRIT 12.888 0.445 F 500.000 F1
;PRINT(P1);< BRIT 27
CLAR 13.000 0.333 A 500.000 F2
;PRINT(P1);< CLAR 35
TOOT 13.067 0.267 FS*2 500.000 F1
;PRINT(P1);< TOOT 43
BUZZ 13.250 0.750 E 500.000 F1
;PRINT(P1);< BUZZ 16
CLAR 13.333 0.333 E*2 500.000 F2
;PRINT(P1);< CLAR 36
BRIT 13.333 0.444 G 500.000 F1
;PRINT(P1);< BRIT 28
TOOT 13.334 0.267 GS*2 500.000 F1
;PRINT(P1);< TOOT 44
TOOT 13.601 0.266 A*2 500.000 F1
;PRINT(P1);< TOOT 45
CLAR 13.666 0.334 B 500.000 F2
;PRINT(P1);< CLAR 37
BRIT 13.777 0.445 GS 500.000 F1
;PRINT(P1);< BRIT 29
TOOT 13.867 0.267 G*2 500.000 F1
;PRINT(P1);< TOOT 46
CLAR 14.000 0.333 CS*2 500.000 F2
;PRINT(P1);< CLAR 38
BUZZ 14.000 0.750 D 500.000 F1
;PRINT(P1);< BUZZ 17
TOOT 14.134 0.267 D*2 500.000 F1
;PRINT(P1);< TOOT 47
BRIT 14.222 0.444 A 500.000 F1
;PRINT(P1);< BRIT 30
CLAR 14.333 0.333 DS*2 500.000 F2
;PRINT(P1);< CLAR 39
TOOT 14.401 0.266 E*2 500.000 F1
;PRINT(P1);< TOOT 48
CLAR 14.666 0.334 E*2 500.000 F2
;PRINT(P1);< CLAR 40
BRIT 14.666 0.445 E 500.000 F1
;PRINT(P1);< BRIT 31
TOOT 14.667 0.267 F*2 500.000 F1
;PRINT(P1);< TOOT 49
BUZZ 14.750 0.750 CS 500.000 F1
;PRINT(P1);< BUZZ 18
TOOT 14.934 0.267 G*2 500.000 F1
;PRINT(P1);< TOOT 50
CLAR 15.000 0.333 C*2 500.000 F2
;PRINT(P1);< CLAR 41
BRIT 15.111 0.444 F 500.000 F1
;PRINT(P1);< BRIT 32
TOOT 15.201 0.266 DS*2 500.000 F1
;PRINT(P1);< TOOT 51
CLAR 15.333 0.333 FS 500.000 F2
;PRINT(P1);< CLAR 42
TOOT 15.467 0.267 E*2 500.000 F1
;PRINT(P1);< TOOT 52
BUZZ 15.500 0.500 A/2 500.000 F1
;PRINT(P1);< BUZZ 19
BRIT 15.555 0.444 FS 500.000 F1
;PRINT(P1);< BRIT 33
CLAR 15.666 0.334 A 500.000 F2
;PRINT(P1);< CLAR 43
TOOT 15.734 0.267 F*2 500.000 F1
;PRINT(P1);< TOOT 53
BRIT 15.999 0.500 G 500.000 F1
;PRINT(P1);< BRIT 34
CLAR 16.000 0.333 AS 500.000 F2
;PRINT(P1);< CLAR 44
BUZZ 16.000 0.800 B/2 500.000 F1
;PRINT(P1);< BUZZ 20
TOOT 16.001 0.250 E*2 500.000 F1
;PRINT(P1);< TOOT 54
TOOT 16.251 0.250 C*2 500.000 F1
;PRINT(P1);< TOOT 55
CLAR 16.333 0.333 FS 500.000 F2
;PRINT(P1);< CLAR 45
BRIT 16.499 0.500 C 500.000 F1
;PRINT(P1);< BRIT 35
TOOT 16.501 0.250 G 500.000 F1
;PRINT(P1);< TOOT 56
CLAR 16.666 0.334 DS 500.000 F2
;PRINT(P1);< CLAR 46
TOOT 16.751 0.250 E 500.000 F1
;PRINT(P1);< TOOT 57
BUZZ 16.800 0.800 GS/2 500.000 F1
;PRINT(P1);< BUZZ 21
BRIT 16.999 0.500 B/2 500.000 F1
;PRINT(P1);< BRIT 36
CLAR 17.000 0.333 D 500.000 F2
;PRINT(P1);< CLAR 47
TOOT 17.001 0.250 F 500.000 F1
;PRINT(P1);< TOOT 58
TOOT 17.251 0.250 G 500.000 F1
;PRINT(P1);< TOOT 59
CLAR 17.333 0.333 E 500.000 F2
;PRINT(P1);< CLAR 48
BRIT 17.499 0.500 D 500.000 F1
;PRINT(P1);< BRIT 37
TOOT 17.501 0.250 GS 500.000 F1
;PRINT(P1);< TOOT 60
BUZZ 17.600 0.400 E/2 500.000 F1
;PRINT(P1);< BUZZ 22
CLAR 17.666 0.334 F 500.000 F2
;PRINT(P1);< CLAR 49
TOOT 17.751 0.250 G 500.000 F1
;PRINT(P1);< TOOT 61
FINISH; < ZW .DAT